
      INTEGER FUNCTION IDSYMSZ(IRREPX,ITYPL,ITYPR)
C
C THIS ROUTINE RETURNS THE TOTAL SIZE OF A SYMMETRY PACKED
C  DISTRIBUTION (FOR ALL IRREPS).  ITYPL IS THE SYMMETRY TYPE
C  OF THE DISTRIBUTION MEMBERS, ITYPR IS THE SYMMETRY TYPE OF
C  THE DISTRIBUTIONS.  NOTE THAT CHANGING THE MEANING OF THESE
C  VARIABLES MAKES NO DIFFERENCE.
C
CEND
      use mod_symm
      use mod_orbit
      IMPLICIT INTEGER (A-Z)
C
      COMMON /SYMPOP/ IRPDPD(8,22),ISYTYP(2,500),NTOT(18)
C
      IDSYMSZ=0
      DO 10 IRREPR=1,NIRREP 
       IRREPL=DIRPRD(IRREPR,IRREPX)
       IDSYMSZ=IDSYMSZ+IRPDPD(IRREPL,ITYPL)*IRPDPD(IRREPR,ITYPR)
10    CONTINUE
C
      RETURN
      END
